home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / misc / CCGames.lha / STARS.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  2KB  |  59 lines
  1. 1 RANDOMIZE
  2. 5 PRINT CHR$(26):WIDTH 80
  3. 10 PRINT TAB(34);"STARS":PRINT
  4. 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  5. 30 PRINT:PRINT:PRINT
  6. 100 REM *** STARS - PEOPLE'S COMPUTER CENTER, MENLO PARK, CA
  7. 140 REM *** A IS LIMIT ON NUMBER, M IS NUMBER OF GUESSES
  8. 150 A=100:M=7
  9. 170 INPUT "DO YOU WANT INSTRUCTIONS";A$
  10. 190 IF LEFT$(A$,1)="N" THEN 280
  11. 200 REM *** INSTRUCTIONS ON HOW TO PLAY
  12. 205 PRINT:PRINT
  13. 210 PRINT "I AM THINKING OF A WHOLE NUMBER FROM 1 TO";A;CHR$(8);"."
  14. 220 PRINT "TRY TO GUESS MY NUMBER.  AFTER YOU GUESS, I"
  15. 230 PRINT "WILL TYPE ONE OR MORE STARS (*).  THE MORE"
  16. 240 PRINT "STARS I TYPE, THE CLOSER YOU ARE TO MY NUMBER."
  17. 245 PRINT
  18. 250 PRINT "ONE STAR (*) MEANS FAR AWAY, SEVEN STARS (*******)"
  19. 260 PRINT "MEANS REALLY CLOSE!  YOU GET";M;"GUESSES."
  20. 270 REM *** COMPUTER THINKS OF A NUMBER
  21. 280 PRINT
  22. 290 PRINT
  23. 300 X=INT(A*RND(1)+1)
  24. 310 PRINT "OK, I AM THINKING OF A NUMBER, START GUESSING."
  25. 320 REM *** GUESSING BEGINS, HUMAN GETS M GUESSES
  26. 330 FOR K=1 TO M
  27. 340 PRINT
  28. 350 PRINT "YOUR GUESS";
  29. 360 INPUT G
  30. 370 IF G=X THEN 600
  31. 380 D=ABS(G-X)
  32. 390 IF D>=64 THEN 510
  33. 400 IF D>=32 THEN 500
  34. 410 IF D>=16 THEN 490
  35. 420 IF D>=8 THEN 480
  36. 430 IF D>=4 THEN 470
  37. 440 IF D>=2 THEN 460
  38. 450 PRINT "*";
  39. 460 PRINT "*";
  40. 470 PRINT "*";
  41. 480 PRINT "*";
  42. 490 PRINT "*";
  43. 500 PRINT "*";
  44. 510 PRINT "*";
  45. 520 PRINT
  46. 530 NEXT K
  47. 540 REM *** DID NOT GUESS IN M GUESSES
  48. 550 PRINT 
  49. 560 PRINT "SORRY, THAT'S";M;"GUESSES. THE NUMBER WAS";X;CHR$(8);"."
  50. 580 GOTO 650
  51. 590 REM *** WE HAVE A WINNER
  52. 600 PRINT:FOR N=1 TO 79
  53. 610 PRINT "*";
  54. 620 NEXT N
  55. 630 PRINT:PRINT
  56. 640 PRINT "YOU GOT IT IN";K;"GUESSES!!!"
  57. 650 PRINT:INPUT "PLAY AGAIN";X$
  58. 660 IF LEFT$(X$,1)="Y" THEN 280 ELSE RUN "MENU"
  59.